home *** CD-ROM | disk | FTP | other *** search
/ Domination 17 / Domination_17_2002-11_-_Side_A_Bonus_Disk.d64 / irc-sim v1.2_drm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  67 lines
  1. 5 poke788,52:o=rnd(-peek(56324))
  2. 10 dim na$(100),jo(100):am=0:jc=0
  3. 20 am=am+1:read na$(am):if na$(am)<>"***"then20
  4. 22 am=am-1
  5. 30 fori=1toam:jo(i)=int(rnd(0)+.5):ifjo(i)=1thenjc=jc+1
  6. 31 next
  7. 100 poke53280,12:poke53281,1:print"[147]"
  8. 102 goto5000
  9. 108 o=int(rnd(0)*am+1):ifo<jcthen150
  10. 110 c=int(rnd(0)*am+1):ifjo(c)=1then110
  11. 120 jo(c)=1:g=int(rnd(0)*4+1):jc=jc+1
  12. 125 print"*** "na$(c)" joined #c-64"
  13. 128 fori=1tog:cg=int(rnd(0)*am):gf=0
  14. 130 if(jo(cg)=1)and(cg<>c)thenprint"[144]<"na$(c)"> "na$(cg):gf=1
  15. 134 d=int(rnd(0)*1000):fordv=1tod:nextdv
  16. 135 r=int(rnd(0)*50):if(r>30)and(gf=1)thenprint"[144]<"na$(cg)"> "na$(c)
  17. 138 d=int(rnd(0)*2200):fordv=1tod:nextdv
  18. 140 next
  19. 150 d=int(rnd(0)*3000):fordv=1tod:nextdv
  20. 160 o=int(rnd(0)*am+1):ifo>jcthen200
  21. 170 c=int(rnd(0)*am):ifjo(c)=0then170
  22. 180 jo(c)=0:print"*** "na$(c)" has quit [201][210][195]":jc=jc-1
  23. 200 d=int(rnd(0)*3000):fordv=1tod:nextdv
  24. 210 l=int(rnd(0)*50):ifl<42then250
  25. 220 c=int(rnd(0)*am):ifjo(c)=0then220
  26. 230 print"[144]<"na$(c)"> poop!"
  27. 250 d=int(rnd(0)*1000):fordv=1tod:nextdv
  28. 260 l=int(rnd(0)*50):ifl<30then300
  29. 270 c=int(rnd(0)*am):ifjo(c)=0then300
  30. 280 cg=int(rnd(0)*am+1):ifjo(cg)=0then280
  31. 285 if c=cgthen300
  32. 290 print"*** "na$(c)" sets mode +o to "na$(cg)
  33. 300 d=int(rnd(0)*1000):fordv=1tod:nextdv
  34. 310 l=int(rnd(0)*50):ifl<35then350
  35. 320 c=int(rnd(0)*am):ifjo(c)=0then350
  36. 330 cg=int(rnd(0)*am+1):ifcg=cthen330
  37. 340 print"[144]<"na$(c)"> !seen "na$(cg)
  38. 341 d=int(rnd(0)*1000):fordv=1tod:nextdv
  39. 342 ifjo(cg)=1thenprint"[144]<"na$(cg)"> [201]'m here, stupid!":goto360
  40. 343 cg=int(rnd(0)*am):if(jo(cg)=0)or(cg=c)then343
  41. 344 print"[144]<"na$(cg)"> [195]ommodore is not here!"
  42. 345 d=int(rnd(0)*1000):fordv=1tod:nextdv
  43. 346 print"[144]<"na$(c)"> [193]h, okay!"
  44. 350 goto110
  45. 360 d=int(rnd(0)*1000):fordv=1tod:nextdv
  46. 361 print"[144]<"na$(c)"> [207]oops! :)":goto 110
  47. 5000 print"[201][210][195]-[211]imulator [214]1.2"
  48. 5010 print"by [206]inja/[212]he [196]reams in 2001":print
  49. 5012 print"[199]et the true feeling of the hottest chaton the net without paying";
  50. 5014 print" bucks for the connection. [197]njoy!":print
  51. 5020 input"[144][217]our handle (max. 9 chars) ";n$:jo(am+1)=1:na$(am+1)=left$(n$,9)
  52. 5030 print"[147]*** "na$(am+1)" joined #c-64":goto110
  53. 10000 data "[218]er0-[216]","[211]oun[196]emon","[199]raham","[206]inja[196][210][205]","[215][214][204][164][216]e[206]","[206]ucleus"
  54. 10010 data "[202]ailbird","[196]a[198]unk","[202]azzcat","[214]engence","[194]lender","[211]pectator"
  55. 10020 data "[196]eekay","[205]ac[164][196][205][193]","[212]hbl-[208][212][214]","[197]uvel[206]oko","[202]eff[195]rest","[212][194][194]","[193][205][202]"
  56. 10030 data "[195]hotaire","[208]ater[208]i","[197]lectric","[201]opop","[212]aper[164]3ad","[200]0[204][204]0[215][205][193][206]"
  57. 10040 data "[195]0unt[218]3r0","cupid","[203]rill","[212]ecmo","[196]eadbeat","[199]illigan"
  58. 10050 data "[195]haot^[198][210]","whk","[215]yndex","[207]swald-","[206]ate/[196][193][195]","[202]ari[218][218][218]","[195]ream[196]"
  59. 10060 data "[194]rite[204]ite","[212]woflower","[195]yber[194]rn","[216]bow","[194]ooker","[194]izk[196][205][199]"
  60. 10070 data "[196][202][194]","[210]eyn","[210]yan","[215]a[196]","[198]unkhaus","[194]arfly[197][216][212]","[199]rendel-[194]"
  61. 10080 data "[208]azuzu","[194]ombe","anonym","c[217][195][204][207][206][197]","r[193][217][196][197][206]0","x[201][201][201][[215][207][215]]","[211]rx"
  62. 10090 data "[210]aven","[199]arvin","6[210]6","[193]rman[164][216]e[206]","groepaz","[211]lator","br0war"
  63. 10100 data "[198]enek","wolf[214][207][218]","[211]teppe","[205]ermaid","[205]ason","ccr[164]","cresh[164]","abd"
  64. 10110 data "bhz","[193][207]utside","stryyker","[195]hecky","jbevren","sailor3ad"
  65. 10120 data "[205]orphfrog","[196]jinn[164][215][196]","blackd[164]wd","[193]gemixer","[205]ihai/[215][199][211]","[198]ungus"
  66. 19999 data "***"
  67.